home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group96b.txt / 000037_icon-group-sender _Sun Oct 20 19:47:01 1996.msg < prev    next >
Internet Message Format  |  1997-01-02  |  1KB
  1. Received: by cheltenham.cs.arizona.edu; Mon, 21 Oct 1996 10:19:25 MST
  2. Message-Id: <3.0b26.32.19961020194626.00694d3c@inforoute.cgs.fr>
  3. X-Sender: grodzens@inforoute.cgs.fr (Unverified)
  4. X-Mailer: Windows Eudora Pro Version 3.0b26 (32)
  5. X-Priority: 1 (Highest)
  6. Date: Sun, 20 Oct 1996 19:47:01 +0100
  7. To: Gordon Peterson <gep2@computek.net>
  8. From: Vladimir <vladimir.grodzenski@InfoRoute.CGS.Fr>
  9. Subject: re: cute nightmare
  10. Cc: icon-group@cs.arizona.edu
  11. Mime-Version: 1.0
  12. Content-Type: text/plain; charset="us-ascii"
  13. Errors-To: icon-group-errors@cs.arizona.edu
  14.  
  15. Well, there's an error,
  16. The expression
  17.     every put(ccard, integer(!ccard))
  18. must be
  19.     every put(ccard, integer(!s))
  20.  
  21. Writing faster than thinking :-)))
  22.  
  23. >procedure CheckSum(s)
  24. >local ccard, checksum
  25. >    if *( cset(s) -- &digits -- ' -' ) > 0 then fail
  26. >    ccard:= list()
  27. >    every put(ccard, integer(!ccard) )
  28. >
  29. >    every i:= *ccard-1 to 1 by -2 do ccard[i]*:= 2
  30. >    checksum:= 0
  31. >    every checksum +:= !!X
  32. >    return checksum
  33. >end
  34.  
  35.